home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1989 January / Ahoy_Magazine_89-01_1989_Double_L.d64 / Disk ID (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  270 b   |  8 lines
  1. 10 rem * disk id checklist *
  2. 20 input"screen or printer s/p";sp$:d=4:if sp$="s" then d=3
  3. 30 open 4,d:n$="0":forx=0to9:x$=str$(x):y$=mid$(x$,2,1):print#4,n$y$"  ";:next
  4. 40 for x=10to99:print#4,spc(0)x;:next:printchr$(13):n=65
  5. 50 forx=0to9:x$=str$(x):y$=mid$(x$,2,1):print#4,tab(1)chr$(n)y$"  ";
  6. 60 ifn=90andx=9thenprint#4:close4:end
  7. 70 next:n=n+1:goto50
  8.